Private Sub Form_Load()
Dosya = Dir(' C:\AUTOEXEC.BAT' )
If Dosya = ' ' Then
MsgBox ' Dosya Bulunmuyor!'
Else
MsgBox ' Dosya Bulundu!'
End If
End Sub
Dir fonksiyonunu merak edenler iτin biraz daha aτal²m:
Genel kullan²m² degisken=Dir[(YolAd²[, ekler])] olan bu fonksiyon sabit
diskinizin istedi≡iniz b÷lⁿmⁿndeki herhangi bir bir dosya hakk²nda bilgiler
alman²za yard²mc² olur. ' Ekler' parametresi sayesinde g÷sterdi≡iniz dosyan²n
dizin olup olmad²≡²n² ve hangi tak²lara sahip oldugunu (gizli, sistem gibi...)
÷≡renebilirsiniz. E≡er g÷sterdi≡iniz dosya bulunamazsa fonksiyon hiτ bir
hata vermeyip sadece bo■ bir alfanumerik de≡i■ken d÷ndⁿrecektir.